home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / mf / inputs / dc / dxisixts.mf < prev    next >
Encoding:
Text File  |  1995-03-15  |  2.9 KB  |  89 lines
  1. % This is DXISIXTS.MF in text format, as of March 24, 1992
  2. %
  3. % DC fonts Version 1.1 (prerelease of EC fonts)
  4. %
  5. %          [ heavily borrowed from the Computer Modern Roman family of
  6. %            fonts by D. E. Knuth ]
  7. %
  8. % Content:
  9. %
  10. %   variant of 6test  modified for testing of dcfonts
  11. %   should be used wit dxbase only
  12. %
  13. %
  14. mode_def screenproof =  % for onscreen viewing of CGA proofs (full screen)
  15.  proofing:=2;                   % yes, we're making full proofs
  16.  fontmaking:=0;                 % no, we're not making a font
  17.  tracingtitles:=1;              % yes, show titles online
  18.  pixels_per_inch:=1001;         % make it easy to view one char on screen
  19.  blacker:=0;                    % no additional blackness
  20.  fillin:=0;                     % no compensation for fillin
  21.  o_correction:=1;               % no reduction in overshoot
  22.  aspect_ratio:=480/640; %265/640        % adjust for screen skewing also
  23. enddef;
  24.  
  25. \mode:=screenproof;
  26.  
  27. mode_setup;
  28.  
  29.  
  30.  
  31.  
  32. if unknown dxbase: input dxbase fi % omit if CMMF can be assumed
  33. boolean running;
  34. def abort = hide(scrollmode; running:=false) enddef;
  35. def pause=stop "done with char "&decimal charcode&". " enddef;
  36. let iff=always_iff;
  37. def ligtable text t=enddef;
  38. def charlist text t=enddef;
  39. def extensible text t=enddef;
  40.  
  41. string currenttitle;
  42. let semi=;; let echar=endchar; let endchar=enddef;
  43. def dcchar expr s = currenttitle:=s;
  44.  let;=testchar semi quote def chartext=enddef;
  45. def testchar = semi let;=semi;
  46.  % now `chartext echar' will generate the character to be tested
  47.  running:=true; errorstopmode;
  48.  for k=1 upto 8:
  49.   if running: if known params[k]: scantokens params[k]; font_setup;
  50.     currentwindow:=k;
  51.     currenttitle & ", " & fontname[k];
  52.     chartext echar; fi fi endfor
  53.  pause; enddef;
  54.  
  55. numeric fontsize[];
  56. numeric gensize;
  57. string params[],fontname[];
  58. params[1]="roman_params"; fontsize[1]:=10; fontname[2]="dcti";
  59. params[2]="sans_params";  fontsize[2]:=10; fontname[3]="dcbxti";
  60. params[3]="tt_params";    fontsize[3]:=10; fontname[1]="dcitt";
  61. params[4]="bold_params";  fontsize[4]:=10; fontname[4]="dcu";
  62. params[5]="quote_params"; fontsize[5]:=10; fontname[5]="dcfi";
  63. % params[6]="ital_params";  fontsize[6]:=10; fontname[6]="dci"; %vtt"; % cmti10";
  64.  
  65. w_rows=floor (1/2 screen_rows); w_cols=floor (1/3 screen_cols);
  66. def open(expr k,i,j)=
  67.  openwindow k from ((i-1)*w_rows,(j-1)*w_cols) to (i*w_rows,j*w_cols)
  68.  at (-65,120) enddef;
  69. def openit =
  70.  open(1,1,1); open(2,1,2); open(3,1,3);
  71.  open(4,2,1); open(5,2,2); open(6,2,3); enddef;
  72.  
  73. begingroup delimiters begintext generate;
  74.  def longerkludge expr s =
  75.   if length s > 8: substring (0,3) of s &
  76.    substring(length s-3,infinity) of fi s enddef;
  77.  def makedef(expr s)(text t) =
  78.   expandafter def scantokens s = t enddef; flushtext enddef;
  79.  def flushtext suffix t = enddef;
  80.  for k=1 upto 8: if known params[k]:
  81.   gensize := fontsize[k];
  82.  makedef(params[k])
  83.   expandafter expandafter expandafter begintext
  84.   scantokens ("input "&longerkludge fontname[k]); fi endfor
  85. endgroup;
  86.  
  87.  
  88. endinput;
  89.